/* Planet Drop + Photon */
/* Made by Dell Bond */
/* Version 1.0 */

call zoctimeout 144000

say ""
say ""
say "You must be on a planet for this script to work"

do forever
result =zocwaitmux("ACTIVITY WARNI", "Deployed Fighters")
select
	when result=0 then call zocsend "#"
	when result=1 then do
	call zocwait "Report Sector "
	wsector=GetSector(0,0)
	call zocsend "cp"
	call zocsend wsector
	call zocsend "^my"
	call zocwait "anetary TransWarp Drive"
	call zocsend "qq"
	call zocsend "sd"
	call photon
	end
end


end
exit


GetSector:
holdfinal=""
call zocwait ":"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal

GetPlanet:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal

photon:
call zocwait "Sector   "
sector=GetPlanet(0,0)

call zocsend sector
call zocsend "^mcpy"
call zocsend wsector
call zocsend "^m"
call zocwait "Computer command"
call zocsend "q"
call zocsend sector
call zocsend "^ml"
call zocnotify "Scripted Stop"